home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Computers
/
Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso
/
commercial
/
inovatronics
/
edgedemo
/
edgeeditor
/
rexx
/
menu_winstofull.edge
< prev
next >
Wrap
Text File
|
1994-11-17
|
559b
|
36 lines
/*
** $VER: Menu_WinsToFull.edge 1.0 (Friday 22-Oct-93 12:55:22)
**
** Display all windows at their full size
**
** Written by Thomas liljetoft & Inovatronics
*/
options results
/* get some general info */
firstname = address()
getenvvar _ge_barheight
bar = result
getenvvar _ge_visualscreenheight
h = result - bar
getenvvar _ge_visualscreenwidth
w = result
/* loop thru the windows */
do forever
'window max'
'addressof nextwindow'
newname = result
address value newname
if newname == firstname then do
'window front'
leave
end
end
exit(0)